(define save-all
  (lambda ()
     ;; Main Storage Folder - will be created if not existing
     (io:make-directory (kR:pathTo "save"))
     (io:make-directory (kR:pathTo "save/" *kR:current-set*)) 
     ;save mixer Settings
     
     (au:save-preset *kR:mixer* 
                     (kR:pathTo "save/" *kR:current-set* "/" *kR:current-song* "/mixer.txt"))
     
     ; now save all the parameters of every instrument
     (for-each 
       (lambda (id)
          (au:save-preset (instr:node-id id) (instr:storage-file id)))
       (instr:ids))
     
     ))


;Open mixer exit window
(define (edit-mixer)
   (au:open-view *kR:mixer* #t))
